#tag Module
Protected Module sjgFolders
	#tag Method, Flags = &h0
		Function SpecFolder(nayme As String) As Folderitem
		  static dic as Dictionary
		  if dic is nil then
		    dic = new Dictionary
		    
		    dic.value("AppleMenu") = SpecialFolder.AppleMenu
		    dic.value("Applications") = SpecialFolder.Applications
		    dic.value("ApplicationData") = SpecialFolder.ApplicationData
		    dic.value("Bin") = SpecialFolder.Bin
		    dic.value("Cookies") = SpecialFolder.Cookies
		    dic.value("CurrentWorkingDirectory") = SpecialFolder.CurrentWorkingDirectory
		    dic.value("Desktop") = SpecialFolder.Desktop
		    dic.value("Documents") = SpecialFolder.Documents
		    dic.value("Etc") = SpecialFolder.Etc
		    dic.value("Extensions") = SpecialFolder.Extensions
		    dic.value("Favorites") = SpecialFolder.Favorites
		    dic.value("Fonts") = SpecialFolder.Fonts
		    dic.value("History") = SpecialFolder.History
		    dic.value("Home") = SpecialFolder.Home
		    dic.value("InternetCache") = SpecialFolder.InternetCache
		    dic.value("Library") = SpecialFolder.Library
		    dic.value("Mount") = SpecialFolder.Mount
		    dic.value("Music") = SpecialFolder.Music
		    dic.value("NetworkPlaces") = SpecialFolder.NetworkPlaces
		    dic.value("Pictures") = SpecialFolder.Pictures
		    dic.value("Preferences") = SpecialFolder.Preferences
		    dic.value("Printers") = SpecialFolder.Printers
		    dic.value("RecentItems") = SpecialFolder.RecentItems
		    dic.value("SBin") = SpecialFolder.SBin
		    dic.value("SendTo") = SpecialFolder.SendTo
		    dic.value("SharedApplicationData") = SpecialFolder.SharedApplicationData
		    dic.value("SharedApplications") = SpecialFolder.SharedApplications
		    dic.value("SharedDesktop") = SpecialFolder.SharedDesktop
		    dic.value("SharedDocuments") = SpecialFolder.SharedDocuments
		    dic.value("SharedFavorites") = SpecialFolder.SharedFavorites
		    dic.value("SharedPreferences") = SpecialFolder.SharedPreferences
		    dic.value("SharedStartupItems") = SpecialFolder.SharedStartupItems
		    dic.value("SharedTemplates") = SpecialFolder.SharedTemplates
		    dic.value("StartupItems") = SpecialFolder.StartupItems
		    dic.value("System") = SpecialFolder.System
		    dic.value("Templates") = SpecialFolder.Templates
		    dic.value("Temporary") = SpecialFolder.Temporary
		    dic.value("Trash") = SpecialFolder.Trash
		    dic.value("UserBin") = SpecialFolder.UserBin
		    dic.value("UserHome") = SpecialFolder.UserHome
		    dic.value("UserLibrary") = SpecialFolder.UserLibrary
		    dic.value("UserSBin") = SpecialFolder.UserSBin
		    dic.value("Var") = SpecialFolder.Var
		    dic.value("VarLog") = SpecialFolder.VarLog
		    dic.value("Windows") = SpecialFolder.Windows
		  end if
		  
		  dim f as FolderItem
		  Try
		    f =  dic.Value(nayme)
		  catch err as KeyNotFoundException
		    Return nil
		  End Try
		  
		  Return f
		End Function
	#tag EndMethod


	#tag ViewBehavior
		#tag ViewProperty
			Name="Name"
			Visible=true
			Group="ID"
			InheritedFrom="Object"
		#tag EndViewProperty
		#tag ViewProperty
			Name="Index"
			Visible=true
			Group="ID"
			InitialValue="-2147483648"
			InheritedFrom="Object"
		#tag EndViewProperty
		#tag ViewProperty
			Name="Super"
			Visible=true
			Group="ID"
			InheritedFrom="Object"
		#tag EndViewProperty
		#tag ViewProperty
			Name="Left"
			Visible=true
			Group="Position"
			InitialValue="0"
			InheritedFrom="Object"
		#tag EndViewProperty
		#tag ViewProperty
			Name="Top"
			Visible=true
			Group="Position"
			InitialValue="0"
			InheritedFrom="Object"
		#tag EndViewProperty
	#tag EndViewBehavior
End Module
#tag EndModule
